SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TCCANJ_CL02_D01]    
/*-------------------------------------------------------*/    
/*---Empresa              : OFISIS S.A.                --*/    
/*---Cliente              : OFISIS S.A.                --*/    
/*---Sistema              : Tesoreria                  --*/    
/*---M÷dulo               : Empresa                    --*/    
/*---Programa             : Eliminacion de Documentos  --*/    
/*                          Generados x Letras         --*/    
/*                          Por Canje                  --*/     
/*---Script               : TCCANJ_CL02_D01.sql        --*/    
/*---Nombre SP            : SP_TCCANJ_CL02_D01         --*/    
/*---Desarrollado por     : Reynaldo Menacho           --*/    
/*---Fecha Creaci÷n       : 26/02/2004                 --*/    
/*---Base Datos           : Microsoft Sql Server       --*/    
/*---Versi÷n              : 2000                       --*/    
/*---Invoca a SP          :                            --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Comentarios                                       --*/    
/*---                                                  --*/    
/*---                                                  --*/    
/*-------------------------------------------------------*/    
    
/*-------------------------------------------------------*/    
/*---Drop Proc SP_TCCANJ_CL02_D01                      --*/    
/*---Grant all on SP_TCCANJ_CL02_D01 to public         --*/     
/*---SP_TCCANJ_CL02_D01                              --*/    
/*-------------------------------------------------------*/    
 @ISCO_EMPR      TD_VC_002,     
 @ISCO_USUA_MODI TD_VC_008_USUA,    
 @ISCO_CLIE      TD_VC_020,    
 @ISNU_CANJ      TD_VC_008,    
 @ISCO_UNID_CONC TD_VC_003,    
 @IDFE_CANJ  TD_DT_001
	As
Declare    
 @VSCO_ESTA_DOCU   TD_VC_003,    
 @VSCO_ESDO_TMLE   TD_VC_003    
    
    
  Begin Tran SP_TCCANJ_PROV_D01    
    
    Select @VSCO_ESTA_DOCU = CO_ESTA_DOCU From TTTIES_DOCU    
     Where ST_ESDO_0001 = 'S'    
    
 Select @VSCO_ESDO_TMLE = CO_ESTA_DOCU From TTTIES_DOCU    
     Where  ST_ESDO_0007 = 'S'    
    
    
 Insert Into TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,    
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)     
        
 select @ISCO_EMPR, 85, 'MAESTRO LETRAS EMITIDAS CLIENTES',    
        RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR))) +     
        RTRIM( T1.NU_LETR_CLIE )+ REPLICATE('#', 15-LEN(RTRIM(T1.NU_LETR_CLIE))), 
		@ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()     
 From   TMLETR_CL02 T1, TDCANJ_CL02 T2    
 Where  T1.CO_EMPR = @ISCO_EMPR    
        And T1.CO_CLIE = @ISCO_CLIE    
        And T1.CO_EMPR = T2.CO_EMPR     
        And T1.CO_CLIE = T2.CO_CLIE    
        And T2.CO_UNID_CONC = @ISCO_UNID_CONC    
        And T2.NU_CANJ = @ISNU_CANJ    
        And T2.FE_CANJ = @IDFE_CANJ    
        And T1.NU_LETR_CLIE = T2.NU_LETR_CLIE    
            
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
      End        
    
    
 Delete  TMLETR_CL02    
 Where  TMLETR_CL02.CO_EMPR = @ISCO_EMPR    
 And TMLETR_CL02.CO_CLIE = @ISCO_CLIE    
 And Exists (Select  T1.CO_CLIE    
    From    TDCANJ_CL02 T1    
    Where   T1.CO_EMPR = @ISCO_EMPR    
    And TMLETR_CL02.CO_EMPR = T1.CO_EMPR    
    And TMLETR_CL02.CO_CLIE = T1.CO_CLIE    
    And T1.CO_UNID_CONC = @ISCO_UNID_CONC    
    And T1.NU_CANJ = @ISNU_CANJ    
    And T1.FE_CANJ = @IDFE_CANJ    
    And TMLETR_CL02.NU_LETR_CLIE = T1.NU_LETR_CLIE)    
    
    
     If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End        
    
    
 Delete  TDDISC_CC02    
 Where  TDDISC_CC02.CO_EMPR = @ISCO_EMPR    
 And TDDISC_CC02.CO_CLIE = @ISCO_CLIE    
 And Exists (Select  T1.CO_CLIE    
    From    TDCANJ_CL02 T1    
    Where   T1.CO_EMPR = @ISCO_EMPR    
    And TDDISC_CC02.CO_EMPR = T1.CO_EMPR    
    And TDDISC_CC02.CO_CLIE = T1.CO_CLIE    
    And T1.CO_UNID_CONC = @ISCO_UNID_CONC    
    And T1.NU_CANJ = @ISNU_CANJ    
    And T1.FE_CANJ = @IDFE_CANJ    
    And TDDISC_CC02.CO_TIPO_DOCU = T1.CO_TIPO_DOCU    
    And TDDISC_CC02.NU_DOCU_CLIE = T1.NU_DOCU_CLIE)    
    
     If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End        
    
 Delete  TMDOCU_CL02    
 Where  TMDOCU_CL02.CO_EMPR = @ISCO_EMPR    
 And TMDOCU_CL02.CO_CLIE = @ISCO_CLIE    
 And Exists (Select  T1.CO_CLIE    
    From    TDCANJ_CL02 T1    
    Where   T1.CO_EMPR = @ISCO_EMPR    
    And TMDOCU_CL02.CO_EMPR = T1.CO_EMPR    
    And TMDOCU_CL02.CO_CLIE = T1.CO_CLIE    
    And T1.CO_UNID_CONC = @ISCO_UNID_CONC    
    And T1.NU_CANJ = @ISNU_CANJ    
    And T1.FE_CANJ = @IDFE_CANJ    
    And TMDOCU_CL02.CO_TIPO_DOCU = T1.CO_TIPO_DOCU    
    And TMDOCU_CL02.NU_DOCU_CLIE = T1.NU_DOCU_CLIE)    
    
     If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End        
    
    
    
     Delete TDCANJ_CL02    
     Where CO_EMPR = @ISCO_EMPR    
 And CO_UNID_CONC = @ISCO_UNID_CONC    
        AND CO_CLIE=  @ISCO_CLIE    
        AND NU_CANJ = @ISNU_CANJ    
        AND FE_CANJ = @IDFE_CANJ    
    
    If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End            
    
    
 Insert into  TMREGI_ELIM (CO_EMPR, CO_TABL_ORIG, DE_TABL_ORIG,    
           CO_CLAV_TAOR, CO_USUA_CREA,FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI)     
    select @ISCO_EMPR, 19, 'CABECERA CANJE CLIENTES - LETRAS EMITIDAS',    
        RTRIM( @ISCO_EMPR )+ REPLICATE('#', 2-LEN(RTRIM(@ISCO_EMPR)))+     
        RTRIM( @ISCO_CLIE )+ REPLICATE('#', 20-LEN(RTRIM(@ISCO_CLIE)))+    
        RTRIM( @ISNU_CANJ )+ REPLICATE('#', 8-LEN(RTRIM(@ISNU_CANJ))), @ISCO_USUA_MODI,GETDATE(), @ISCO_USUA_MODI, GETDATE()    
 From   TCCANJ_CL02    
 Where  CO_EMPR = @ISCO_EMPR    
 And CO_UNID_CONC = @ISCO_UNID_CONC    
        AND CO_CLIE=  @ISCO_CLIE    
        AND NU_CANJ = @ISNU_CANJ    
        AND FE_CANJ = @IDFE_CANJ    
    
   If @@error <> 0    
      Begin    
        Rollback tran    
        Return    
      End        
    
    Delete TCCANJ_CL02    
     Where CO_EMPR = @ISCO_EMPR    
 And CO_UNID_CONC = @ISCO_UNID_CONC    
        AND CO_CLIE=  @ISCO_CLIE    
        AND NU_CANJ = @ISNU_CANJ    
        AND FE_CANJ = @IDFE_CANJ    
    
    If @@error <> 0    
       Begin    
         Rollback tran    
         Return    
       End        
    
Commit Tran    
/*------------------------- Fin ------------------------------*/

GO
